home *** CD-ROM | disk | FTP | other *** search
/ The CICA Windows Explosion! / The CICA Windows Explosion! - Disc 2.iso / programr / blrplt.zip / PROCS.DAT < prev    next >
Text File  |  1992-03-23  |  523b  |  23 lines

  1. *Paint
  2. procedure Paint(PaintDC : HDC; var PaintInfo: TPaintStruct); virtual;
  3. {PaintInfo.fErase = 0 indicates background has not been redrawn.
  4.  PaintInfo.rcPaint defines the rectangle requiring redrawing.
  5. }
  6. begin
  7. end;
  8. *DefWndProc
  9. procedure DefWndProc(var Msg : TMessage); virtual;
  10. begin
  11. @XX2.DefWndProc(Msg);
  12. end;
  13. *DefChildProc
  14. procedure DefChildProc(var Msg : TMessage); virtual;
  15. begin
  16. @XX2.DefChildProc(Msg);
  17. end;
  18. *CanClose
  19. function CanClose : boolean; virtual;
  20. begin
  21. CanClose := @XX2.CanClose;
  22. end;
  23.